S²≡acak m²?

A■a≡²daki y²≡²n dosyas² DOS'ta ki DEBUG program²yla yaratabilece≡iniz DOLUMU.COM'u kullanarak belirtti≡iniz bir ya da birkaτ dosyan²n g÷sterilen diske s²≡²p s²≡amayaca≡²n² size s÷yleyecektir.

KOPYALA.BAT
ECHO Bu program kullan²ld²≡² dizindeki dosyalar² s²≡acaksa diskete kopyalar.
DOLUMU *.* A:

IF ERRORLEVEL 255 GOTO TAMAM

SET ERROR=Kaynak disk geτersiz.
IF ERRORLEVEL 1 SET ERROR=Hedef disket geτersiz.
IF ERRORLEVEL 2 SET ERROR=Kaynak bulunamad².
IF ERRORLEVEL 3 SET ERROR=Hedef bulunamad².
IF ERRORLEVEL 4 SET ERROR=Dosyalar s²≡mayacak.
ECHO %ERROR%
GOTO END

:TAMAM
COPY *.* A:
DEL *.*
:END

DEBUG yaz²p ENTER'a bast²ktan sonra a■a≡²dakileri girin.(Sat²r numaralar²n² yazmay²n.)

1- N DOLUMU.COM
2- A 100
3- CLD
4- SUB  BX,BX
5- OR AL,AL
6- JNZ 10C
7- INC BX
8- OR AH,AH
9- JZ 112
10- MOV AL,BL
11- MOV AH,4C
12- INT 21
13- INC BX
14- MOV SI,81
15- LODSB
16- CMP AL,D
17- JZ 10C
18- CMP AL,20
19- JZ 116
20- DEC SI
21- MOV DX,SI
22- INC BX
23- LODSB
24- CMP AL,D
25- JZ 10C
26- CMP AL,20
27- JNZ 123
28- MOV Byte Ptr [SI-1],0
29- SUB DI,DI
30- SUB BP,BP
31- MOV AH,4E
32- MOV CX,1
33- INT 21
34- JB 14F
35- JMP 145
36- MOV AH,4F
37- INT 21
38- JB 14F
39- ADD BP,[9A]
40- ADC DI,[9C]
41- JMP 13F
42- MOV DL,[6C]
43- OR DL,DL
44- JZ 10C
45- INC BX
46- MOV SI,BX
47- MOV AH,36
48- INT 21
49- DB 93
50- MUL CX
51- JMP 167
52- SHL AX,1
53- RCL DX,1
54- SHR BX,1
55- OR BX,BX
56- JNZ 163
57- MOV BX,SI
58- CMP DI,DX
59- JB 179
60- JA 10C
61- CMP BP,AX
62- JA 10C
63- MOV BL,FF
64- JMP 10C
65- (Enter)
66- RCX
67- 7D
68- W
69- Q